home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / COLORS.J < prev    next >
Encoding:
Text File  |  1993-07-05  |  247 b   |  11 lines
  1. Colors:Start
  2.   New(I)
  3.   Win:Add ("Color Demonstration", 0, 0, 16, (16*4), Here)
  4.   For (i=0 thru 255)
  5.     Win:Attr((i%16)+"/"+Num:Int(i/16))
  6.     Str:Put(To:Str(i," ###"))
  7.     If ((I%16)==15)
  8.       Str:PutLine()
  9.   Win:Pause
  10.   Return (Ok)
  11.